home *** CD-ROM | disk | FTP | other *** search
- global gDB, gDB_Table1
-
- on readDB
- gDB = new(xtra("V12dbe"), the pathName & "MacworldMay00.v12", "readonly", EMPTY)
- CheckError()
- gDB_Table1 = new(xtra("V12table"), mGetRef(gDB), "Table1")
- CheckError()
- mSelectAll(gDB_Table1)
- CheckError()
- end
-
- on CheckError
- if mStatus(xtra("V12dbe")) then
- errMsg = mError(xtra("V12dbe"))
- put errMsg
- alert(errMsg)
- beep()
- end if
- end
-
- on SearchMyList description
- myList = []
- repeat with cnt = 1 to count(myList)
- if getaProp(getAt(myList, cnt), #description) = description then
- found = 1
- exit repeat
- end if
- end repeat
- if found = 1 then
- tempList = getAt(myList, cnt)
- qty = getaProp(getAt(myList, cnt), #qty)
- setaProp(tempList, #qty, qty + 1)
- setAt(myList, cnt, tempList)
- else
- newThing = [:]
- setaProp(newThing, #qty, 1)
- setaProp(newThing, #description, description)
- setAt(myList, count(myList) + 1, newThing)
- end if
- end
-
- on Padstring s, n, c
- l = length(s)
- newS = s
- repeat with X = 1 to n - l
- newS = c & newS
- end repeat
- return newS
- end
-
- on InitDBText
- tempS = EMPTY
- repeat with X = 1 to mSelectCount(gDB_Table1)
- mGo(gDB_Table1, X)
- myTitle = mGetField(gDB_Table1, "Title")
- if mGetField(gDB_Table1, "NewItem") = "X" then
- put "*" before tempS
- end if
- put myTitle & RETURN after tempS
- end repeat
- delete char length(tempS) of tempS
- put tempS into field "Product Names"
- end
-
- on showProdInfo myLine
- mGo(gDB_Table1, myLine)
- put mGetField(gDB_Table1, "Title") into field "Item Name"
- put mGetField(gDB_Table1, "Version") into field "Version"
- put mGetField(gDB_Table1, "Author") into field "Author"
- put mGetField(gDB_Table1, "Type") into field "Type"
- put mGetField(gDB_Table1, "Category") into field "Category"
- put mGetField(gDB_Table1, "Email") into field "Email"
- put mGetField(gDB_Table1, "URL") into field "URL"
- put mGetField(gDB_Table1, "Price") into field "Price"
- put mGetField(gDB_Table1, "Description") into field "Description"
- HACK = the number of words in line 1 of field "Description"
- put " " after word HACK of line 1 of field "Description"
- put mGetField(gDB_Table1, "Path") into field "Location"
- if mGetField(gDB_Table1, "NewItem") = "X" then
- vis(16)
- else
- devis(16)
- end if
- end
-